home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / amosutil.lha / outlines.amos / outlines.amosSourceCode
AMOS Source Code  |  1970-01-09  |  640b  |  29 lines
  1. Screen Open 0,320,200,4,Lowres
  2. Flash Off 
  3. Cls 0
  4. Palette $6C,$FFF,$0
  5. OUTLINE[75,50,1,2,"AMOS & AMIGA COMPUTING"]
  6. SHADOW[75,70,1,2,"AMOS & AMIGA COMPUTING"]
  7. SHADOUT[75,90,1,2,"AMOS & AMIGA COMPUTING"]
  8. End 
  9. Procedure OUTLINE[X,Y,_INK,_LINE,_TXT$]
  10.    Gr Writing 0
  11.    Ink _LINE
  12.    Text X+1,Y,_TXT$
  13.    Text X-1,Y,_TXT$
  14.    Text X,Y-1,_TXT$
  15.    Text X,Y+1,_TXT$
  16.    Ink _INK
  17.    Text X,Y,_TXT$
  18. End Proc
  19. Procedure SHADOW[X,Y,_INK,_SHAD,_TXT$]
  20.    Gr Writing 0
  21.    Ink _SHAD
  22.    Text X+1,Y+1,_TXT$
  23.    Ink _INK
  24.    Text X,Y,_TXT$
  25. End Proc
  26. Procedure SHADOUT[X,Y,_INK,_SHAD,_TXT$]
  27.    OUTLINE[X+1,Y+1,_SHAD,_SHAD,_TXT$]
  28.    OUTLINE[X,Y,_INK,_SHAD,_TXT$]
  29. End Proc